bayesianboot <- function(eligibles, n){
	a <- sort(runif(length(eligibles)-1))
	values <- sample(eligibles, n, replace=TRUE, c(a,1) -c(0,a))
	return(values)
	}
	